program main

        use mpi
        integer :: nrank, nproc, iermpi


        call mpi_init(iermpi)
        call mpi_comm_rank(mpi_comm_world, nrank,iermpi)
        call mpi_comm_size(mpi_comm_world, nproc,iermpi)


        write(*,*) nrank,nproc

        call mpi_barrier(mpi_comm_world, iermpi)

        call mpi_finalize(iermpi)
end program main
